home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / avm1_19.lha / rexx / recordamigaps.avm < prev    next >
Text File  |  1994-04-06  |  535b  |  22 lines
  1. /* */
  2. parse upper arg compression fileName .
  3. address command
  4. say 'Recording'
  5.  
  6. samplingrate = '9600'
  7. if pos('7200', compression) > 0
  8.   then samplingrate = '7200'
  9. else if pos('8000', compression) > 0
  10.   then samplingrate = '8000'
  11. else if pos('9600', compression) > 0
  12.   then samplingrate = '9600'
  13. else if pos('6400', compression) > 0
  14.   then samplingrate = '6400'
  15.  
  16. 'avm:agmsrecordsoundps3 avmtemp:temp.iff Hz=' || samplingrate
  17. say 'Converting'
  18. 'avm:iff2adpcm avmtemp:temp.iff' compression fileName
  19. say 'Done'
  20. call setclip('playAmigaFile')
  21.  
  22.